<%

Function IsPastaExiste(endereco)

	Set fso = CreateObject("Scripting.FileSystemObject")
	if fso.FolderExists(endereco) Then
		IsPastaExiste = TRUE
	Else
		IsPastaExiste = FALSE
	End If
	Set fso=Nothing

End Function

Function criar_pasta(endereco)

response.Write(endereco)

	Set objFS = Server.CreateObject("Scripting.FileSystemObject")
	objFS.CreateFolder(endereco)
	Set objFS = Nothing

End Function
%>